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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
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| 
| 
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LL III] BBBBBBBB EEEEEEEEEE MM MM 000000 DDDDDDDD HH HH 

LL III] BBBBBBBB EEEEEEEEEE MM MM 000000 DDDDDDDD HH HH 

LL I] BB BB EE MMMM MMMM 600 00 OD DD HH HH 

LL I] BB BB EE MMMM MMMM 600 00 ODD DD HH HH 

LL I] BB BB EE MM MM «(00 00 DD HH HH 

LL I] BB BB EE MM MM MM «00 00 ODD DD HH HH 

LL I] BBBBBBBB EEEEEEEE MM 00 00 D DD HHHHHHHHHH 

LL I] BB BB EEEEEEEE MM MM 00 00 DD DD HHHHHHHHHH 

LL II BB BB EE MM MM 00 00 OD DD HH HH 

LL I] BB BB EE MM MM 00 00 DD DD HH HH 

LL I] BB BB EE MM MM 00 00 OD DD HH HH eee 
LL I] BB BB EE MM MM 00 00 DD DD HH HH cees 
LLELLLLLLLL III! BBBBBBBB EEEEEEEEEE MM MM 000000 DDDDDDDD HH HH cove 
LLLLLLLLLL 1111 EEEEEEEEEE MM MM 000000 DDDDDDDD HH HH eee 
LL III] SSSSSSSS 

LL III SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II SS 

LLELLLLLLLLE III] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS cent ee UNDER A LICENSE AND MAY BE USED AND od td 
ON ccoe DANCE WITH THE {Enns OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeepokat ite. © NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; 
° 
° 
4 
° 
° 
: 
° 
° 
© 
° 
° 
sd 
° 
° 
: 
° 
° 
° 
° 
° 
: PARRA RARAAAAAALALALALAAASAAR REAR ASESE EAL AL REESE RRR RRA RARE ARR A RASA RASA AS | 
o 


++ 
FACILITY: General Utility Library 


ABSTRACT: 


Soooooooooocooooo 


; Extend precision of multiplier, multiply by multiplicand 
3 and extract integer and fractional portion of result. 


ENVIRONMENT: User Mode, AST Reentrant 


; AUTHOR: Steven B. Lionel, CREATION DATE: 31-July-1979 
; MODIFIED BY: 


WR OC OONOA UE WN 9 ODNOAU EWN 0 DOONAN EW S OOOVNOU Ere 


SOOSOOCOSOOSOOOOSOSOSOSOSOOSOSOSOOSOOOSOSOOSOOOOoOSoS 


PEE PWWIWIWIWIWIIIIononononononononong = 2 2 2 


COOoOooooooooooooooooooooooooooooo 


Sooooooooo 


LIBRTL.SRCJLIBEMODH.MAR; 1 a). 


Edit 


xten 


E 6 
ded multiply and integerize H 
History 


12803 


-SBTTL, Edit Hist 
- Original, SBL 1Zyut -1979 


- Use® local handler to insure that ex 


as statuses are resignalled. 
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~SBTTL DECLARATIONS 
i 3; INCLUDE FILES: 
5 SCHF DEF 3; Condition handling oe ros 
§ SSSDEF ; System symbol definitions 
8 8 ; EXTERNAL SYMBOLS: 
60 
61 ~-EXTRN LIBSSIG_TO_RET ; Library routine to convert a signal 
88 66 ; to error return to caller 
; of LIBSEMO 
4 ¢: ; RO = signaled condition 
00 6 
00 8$ 3 
00 o8 ; MACROS: 
00 § 3 
000 0 
000 71 ; 
000 ; EQUATED SYMBOLS: 
000 73; 
000 74 
000004 0000 75 mulr = 4 ; multiplier 
00000008 0000 6 mulrx = : aultiplier extension 
oie ig eg 4464 7 muld = 1 ; multiplican 
0000001 000 78 nt = ; integer portion returned 
00000014 0000 79 fract = 20 3; fractional portion returned 
0000 80 
0000 13 
Bode ; 3; OWN STORAGE: 
0000 Ba 
0900 5; 
4 § 3 PSECT DECLARATIONS: 
00000000 8 -PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
4 4 EXE, RD, NOWRT, LON G 
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u ~SBTTL LIBSEMODH = Extended multiply and integerize 
; FUNCTIONAL DESCRIPTION: 


i toenced provides the functionality of the VAX hardware 
nstruction EMODH to high-level Language users. 
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The floating point multiplier extension operand (second operand) 


is concatenate wish the floating point multiplier (first 
pporenr: to gain 15 additional low order fraction bits. 
The put tipticene operand is mult 

multipl ol operand. After myst ip cation, the integer 
portion is extracted and a 128 bit rpees tne point number is 
formed from the fractional part of the product by truncating 
extra bits. The multiplication is such that the result is 
equivalent fo the exact product truncated to a fraction 
field of 128 bits. Regarding the result as the sum of an 
integer and fraction of the same sign, the integer operand 
is replaced by the vanoper part of the result and the 
fraction operand is replaced by the rounded fractional 
part of the result. 


; CALLING SEQUENCE: 


status.wlc.v = LIBSEMODH (mulr.rh.r, mulrx.erw.r, muld.rh.r, 
nt.wl.r, fract.wh.r) 


1p ied by the extended 


; INPUT PARAMETERS: 
mulr.rh.er - floating point multiplier 


mulrx.ctw.r - word to be appended to multiplier fraction 
muld.rh.r - floating point multiplicand 
; IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
int.wl.r - integer portion of result 
fract.wh.r - fractional portion of result 
; IMPLICIT OUTPUTS: 
NONE 
; FUNCTION VALUE: 
SS$_NORMAL - successful execution 
SS$_INTOVF - integer overflow or floating overflow 
SS$_FLTUND - floating underflow 
SS$_ROPRAND - reserved operand 


; SIDE EFFECTS: 
ALL other exceptions are signalled. 


H 
IBSEMODH - Extended multiply and integerize H ~SEP-1984 AX/V o V04-00 Page 
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138 je 
4000 ! ENTRY LIBSEMODH, “M<IV> ; Entry point 
6D 16°AF 9 1 MOVAB B*“HANDLER, (FP) ; Enable local handler to 
1 ¢ 3 process exceptions 
10 BC OC BC O08 BC % +! 74FD : 156 EMODH a@mulr(AP), - 3; perform multiplication 
1 13 Q@mulrx(AP), = 3; trap on oncopt ten to 
01 1 8 sau tan) ~ 3 handler which will 
4 15 aint (AP ; aa a return error 
1 160 Sirect tab)” t condition in R 
1 19} 3; caller of UTBSEMODH. 
50 01 QA ! 188 MOVZBL #1, RO 3 success status code 
04 001 19? RET 3; return 
B18 1 $ 
16 167 HANDLER: 
0000 0016 168 -WORD 0 
it 14 
01 170 ;+ 
001 171 ; If the exception is one of the documented exceptions for this routine, 
01 76 ; call LIBSSIG_TO_RET to return it as a status. Otherwise, resignal. 
} Ve 3 = Also, resignal Tf the depth is not zero. 
018 175° 
50 08 AC 4 baie 176 MOVL CHFSL_MCHARGLST(AP), RO 3; Get mechanism vector address 
08 60 D 01Cc 177 TSTL CHF SL_MCH_DEPTH(RO) : Is depth zero? 
3 is O1F 178 BNEQ 90$ ; If not, resignal 
51 O04 AC OD 021 179 MOVL CHFSL_SIGARGLST(AP), R1 ; Get signal vector address 
50 04 Al D0 0025 180 MOVL CHF$L-SIG_NAME(R1), RO ; Get signalled gone tion 
047C 8F 50 61 0029 181 CMPW RO, #SS$_INTOVF ; Compare condition 
18 «613 3 1 ; BEQL 10$ 3 If it matches, p aed t resignal 
049C 8F 50 «Bl 1 CMP RO, #SS$_FLTUND 
14 13 00 184 BEQL ~=s«é108 
0454 8F 50 BI 0 185 CMPW RO, #SS$_ROPRAND 
Op 13 003c (1 é BEQL ~=sés«C108 
04C4 8F 0 Bi 00 1 CMP 4 #SS$_FLTUND_F 
ge 12 4 188 BNEQ 9 
04 Al 049C BF 3C 4 189 MOVZWL #SSS$_FLTUND, CHFSL_SIG_NAME(R1) ; Change fault code to trap code 
00000000'GF 6C An : 130 10$: cats (AP)? G*L1B$S1G_ TO_RET™ ; Return signal as a status 
50 0918 8F iF 5 136 90$: MOVZWL #SS$_RESIGNAL, RO ; Resignal condition 
04 5 19 RET 
5 194 
59 195 
059 196 - END 
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CHF SL_MCHARGLST = : 

CHF SL_-MCH_DEPTH = 

CHF SL-SIGARGLST = 4 

CHF SL_SIG_NAME - 4 

FRACT = 4 

HANDLER 16 R 02 
INT = 1 

LIBSEMODH 00 RG ¢ 
LIB$S1G_TO_RET teereres 

MULD = ¢ 

MULR = 

put = 8 
SS$_FLTUND = C 
SSS_FLTUND_F = ofe 
SS$_INTOVF = 000004 ¢ 
SS$_RESIGNAL = 0000091 
SS$_ROPRAND = 00000454 


wae ee men 


PSECT name Allocation PSECT No. Attributes 


ABS 00 ¢ 0.) NOPIC USR CON ABS 


Cross-reference output 
Assembler run totals 


. . 00000000 0.) LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 4 oti 44 ( 0.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR’- EXE RD WRT NOVEC BYTE 
_LIBSCODE 0000005 ( 89.) 2 wes PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Peto 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.03 80:00:01 -67 
Command processing 111 0:00:00. +0) 305-18 
Syabol table sort 16 b; °4 8:00:07: 16 
22 power 1 RSE 8h 
e ou : ‘ :00: 
t Seay 
“08 0: Hat: 5 


Psect synopsis output 6 a 3 
39 00:00:04. 


The working set Limit was 1200 pages. 

21526 bytes (43 pages) of virtual memory were used to buffer she intermediate gefe. 

There were 30 pages of symbol table space allocated to hold 428 non-local and 2 local symbols. 
source Lines were read in Pass 1, produc ing 13 object records in Pass 2 

9 pages of virtual memory were used to define 5 macros. 
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! Macro Library statistics ! 


powwow weceoceewceeccocoen}+ 
Macro Library name Macros defined 
~$255$DUA28: [SYSLIBISTARLET.MLB; 2 meer ag 
486 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBEMODH/OBJ=0BJ$:LIBEMODH MSRC$:LIBEMODH/UPDATE=(ENH$: |. IBEMODH) 
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